home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c64 / demos / generic / Demos.lzh / -color chart (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-12-17  |  639 b   |  14 lines
  1. 30 print"[147][142]"
  2. 40 fori=49152to49188:reada:pokei,a:next:poke53280,11
  3. 50 print"[151][147]";:a$="                                        "
  4. 60 fori=1to24:printa$;:next:print"                                       "
  5. 70 poke2023,160
  6. 80 fori=0to15:forj=0to15:p=1200+(40*i)+j:pokep+54272,j:pokep,90:nextj,i
  7. 85 print"[151]colorchart"
  8. 90 print"this chart":print"show all 256":print"combinations"
  9. 95 print"of colors.":sys12*4096
  10. 97 goto97
  11. 100 data169,90,133,251,169,0,141,33,208,162,15,120,173,17,208,48
  12. 105 data251,173,18,208
  13. 110 data197,251,208,249,238,33,208,24,105,8,133,251,202,16,233,48,219
  14.